home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Small Eiffel 0.4.8 / lib_std / std_output.e < prev    next >
Text File  |  1997-04-13  |  997b  |  49 lines
  1. -- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
  2. -- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
  3. --
  4. class STD_OUTPUT
  5. --
  6. -- To use the standard output file. As for UNIX, the default standard 
  7. -- output is the screen.
  8. --
  9. -- Notes: - the predefined `std_output' should be use to have only one instance 
  10. --        of the class STD_OUTPUT,
  11. --        - to do reading or writing at the same time on the screen, 
  12. --        see STD_INPUT_OUTPUT,
  13. --        - to handle cursor of the screen, see CURSES.
  14. --
  15.    
  16. inherit 
  17.    STD_FILE_WRITE 
  18.       redefine disconnect, make
  19.    end;
  20.    
  21. creation 
  22.    make, connect_to
  23.    
  24. feature {ANY}
  25.    
  26.    make is
  27.       do
  28.      output_stream := stdout;
  29.       ensure
  30.      not is_connected
  31.       end;
  32.       
  33.    disconnect is
  34.       local
  35.      err: INTEGER;
  36.       do
  37.      err := fclose(output_stream); 
  38.      path := Void;
  39.      output_stream := stdout;
  40.       end;
  41.       
  42. feature {RUN_FEATURE}   
  43.    
  44.    stdout: POINTER is
  45.       external "CSE"
  46.       end;
  47.  
  48. end -- STD_OUTPUT
  49.